scheme-compatible(A;B)
== let na,La,Ra = A in
== let nb,Lb,Rb = B in
== nmr_a:Namer(na;La), nmr_b:Namer(nb;Lb).
== namer-disjoint(na;nb;nmr_a;nmr_b) Ra(nmr_a) || Rb(nmr_b)
scheme-compatible{i:l}
scheme-compatible(A; B)
== let na,La,Ra = A in
== let nb,Lb,Rb = B in
== nmr_a:Namer(na;La), nmr_b:Namer(nb;Lb).
== namer-disjoint(na;nb;nmr_a;nmr_b) R-compat{i:l}((Ra(nmr_a)); (Rb(nmr_b)))